#include once "mud-gui/ui.bi"
#include once "mud-gui/widgets/GridLayout.bi"
#Include Once "mud-gui/widgets/IntSpinBox.bi"
#include once "mud-gui/widgets/DblSpinBox.bi"
using ui

Dim As IntSpinBox Ptr isb
dim as DblSpinBox ptr dsb
dim as GridLayout ptr mw

if initScreen("SpinBox Example") = 0 then
	print "unable to initialize screen."
	end 23
end If

mw = new GridLayout
isb = new IntSpinBox(,0,2) 'starting val 0, step 2
dsb = new DblSpinBox(,1.0, 0.2) 'starting val 0, step .2

mw->sizeGrid(5,5)
mw->placeWidget( toBaseWidget(isb), 1,1, 5,1 )
mw->placeWidget( toBaseWidget(dsb), 1,2, 5,2 )

end runGUI(toBaseWidget(mw))
